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QUE LE FORTH SOIT AVEC VOUS FEVRIER 1986 


VOUS AVEZ LE TIGKET GHIE, 
Le KL LE FORTH CHIC. 


; SORTI E. 
LS 


EDITORIAL 


L'année 1986 commence mal pour la planète, Par cet article, JEDI démontre qu'une re- 
car entre les guerres, les attentats, les die- vue de très faible tirage, disposant de moyens 
tateurs déchus et les PADAK (Paris-Dakar) qui dérisoires sait aussi faire de l'information, 
capotent, il semble difficile de faire un sco- ! : ee 
One Puisse l'esprit JEDI continuer à se répan- 

dre, avec votre aide et vos suggestions. Car, à 

En effet, qui croirait qu'une revue tech coté des grands pouvoirs médiatiques de la ra- 
nique puisse attirer l'attention avec un arti- dio, la télévision et la presse à grand tirage, 
cle, à fortiori (sans jeu de mot) concernant le les revues d'association ont leur place à tenir 
langage FORTH. Or, c'est un SCOOP que JEDI vous et doivent étre prises en considération. 


propose ce mois-ci, en dévoilant en avant-pre- 
miére les dessous d'une manifestation culturel 
le dont l'impact (nous le souhaitons) sera du 
mème ordre que l'emballage du Pont Neuf par 
Christo. 
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FORT H MCRO TRAITEMENT DE TEXTE par Allan HANSEN 


Parmis les divers documents inter-clubs 
nous arrivant des U.S.A. (ORANGE FORTH), le 
programme qui suit a particulièrement attiré 
notre attention. En effet, il permet de réali- 
ser un véritable traitement de texte avec très 
peu de moyens. Nous vous livrons ce document 
tel que nous l'avons reçu. 


QUICK TEXT FORMATTER 


by 
Leo Hrodie, (FORTH DIMENSIONS, IV,3.) 


Westminster,01/10/85 


FORTH INTEREST GROUP 
Orange County 


As you cen see, to write à letter with this word processor 
is to write a FORTH program. Having this eystem sitting on 
top of FORTH allows the full power of FORTH to be called upon 
while writing a document or letter. 

To illustrate this, let us redefine the meaning of pp 
{ new paragraph ): 


SPECIAL EFFECTS using existing FORTH words are easy to include. 
1 plan to implement a word which prints a letterhead using 
the graphics capability of the EFSON printer. 

Enjoy, 
Allan Hansen 


21:55:34 01/10/85 

SCR # 160 

PR.ON COMPRESS.OFF start centerL GUICK TEXT FORMATTER]J er center 
€ by] cr centert Leo Erodie, (FORTH DIMENSIONS, 1V,3.)1 S ers LC 
Westminster, .DATE 3 crs © FORTH INTEREST GROUF] cr C Orange Co 
unty1 3 crs L As you can see, to write a letter with this word p 
rocessor is to write a FORTH program. Having this system sitting 
on top of FORTH allous the full pouer of FORTH to be called upo 
n while writing a document or letter. pp L To illustrate this, 
let us redefine the meaning of pp ( new paragraph ):1 PR.OFF DEF 
INITIONS : pp 2 ere ; FR.ON pp ITALICS.ON [LC SPECIAL EFFECTS] ITA 
LICS.OFF L using existing FORTH words are easy ta include. 1 p 
10 lan to implement a word which prints a letterhead using the grap 
11 hics capability of the EPSON printer. FORGET pp pp ( This comme 
12 nt is ignored, because it is parsed by FORTH) C Enjoy, J cr L Al 
lan Hansen] FKR.OFF end 


LD UMECIIJ rm O 


PP 


20:39:25 01/10/85 


SCR # 10 

O ( TEXT FORMATTER ) ( AEHH 011085 ) 

1 SWF DEFINITIONS 

2 78 VARIABLE PAFER ( WIDTH ) 

3 10 VARIAELE LMARGIN PAPER 9 10 — VARIABLE RMARGIN 

4 6 VARIAELE TMARGIN 55 VARIABLE EMARGIN 

5 O VARIABLE DELIMITER Q VARIABLE XTKA 

é O VARIABLE ACROSS O VARIABLE DOWNWARD 

7 1 VARIARLE VSPACE 1 CONSTANT single 

8 2 CONSTANT double © VARIAELE paget# 

Q : SKIF ( N —— ) € MOVE N SPACES ) 

10 DUF ACROSS +! SFACES ; 

11 : \line ( -- ) ( GO TO NEXT LINE ) 

12 © ACROSS ! CR 1 DOWNWARD +! LMARGIN 9 XTRA 9 + SKIP ; 

——> 
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20:59:45 01/10/85 


SCK # 11 
O ( TEXT FORMATTER ) ( AEH 011085 ) 
1 : start ( HEGIN NEW DOCUMENT } 
2  O DOWNUWARD !‘! TMARGIN à © DO \line LOOP 
S 1 page# ! ; 
4 : newpage ( KHEGIN NEXYT FAGE ) 
S 1 page#t +! 


&é CR FF O DOUNWARD ! 65 SFACES page# 9 4 .R 

7  TMARGIN à G DO \line LOOF ; 

8 : spacing { N -—— ) ( CAUSE MULTIFLE SFACING }) 

9 VSPACE ! ; 

10 : cr ( NEW LINE, IF NECESSARY NEW PAGE ) 

11 VSPACE 9 © DO 

12  DOWNWARD 9 EMARGIN 9 > IF newpage ELSE \line THEN 
15 LOCP ; 

14 —-> 


20:40:02 01/10/85 


SCR # 12 
O ( TEXT FORMATTER ) ( AEHH 011085 ) 
: crs (NN -- ) ( N cr’S IN SEQUENCE ) 
© DO cr LOCF ; 
: tab { N -—-— ) ( TARULATE RELATIVE TO LEFT MARGIN ) 
ACROSS © LMARGIN © — — 1 MAX SKIF ; 
indent ( N —— ) ( TAR N IN THIS AND FOLLOWING LINES ) 


DUF XTRA ! tab ; 
: pp { FARKAGKAFH ) 
cr S SKIP ; 


+ 


DDNOUB UN) rm 


20:40:17 01/10/85 


SCR # 13 
O ( TEXT FORMATTER ) ( AEH 011085 ) 
1 5 hang-ind © N -- ) € TAB N IN THIS AND TAB N+3 IN FOLLOWING ) 
2 DUP tab 3 XTRA ! ; , 
: PNEAR ( -- F ) ( TEST IF NEAR RIGHT MARGIN ) 
ACROSS 9 RMARGIN 9 > ; 


= 

4 

S 3: PURAF ( —- F ) ( TEST IF AT RIGHT EDGE OF FAPER ). 
6 ACROSS 9 PAPER 9 = ; 
7 
6 


: LETTER € -- C ) ( GET CURRENT LETTER FROM RUFFER ) 
ELK © BLOCK IN @ + C9 ; 
FLUSH-LEFT ( AFTER cr, DO NOT QUTFUT À BL ) 
10 cr LETTER EL = IF 1 IN +! THEN ; 
11 : PARSE ( C -- ) ( DISPLAY TEXT TO DELIMITER CO ) 
12 DELIMITER ! BEGIN LETTER 1 IN +! DUF 
15 DELIMITER 9 = IN 1025 = OR NOT WHILE DUP EMIT 
14 1 ACROSS +! EL = PWRAF OR IF ?PNEAR IF FLUSH-LEFT 
15 THEN THEN REPEAT DROF Q XTRA ! 5; —-> 


© 


20:40:57 01/10/85 
SCR # 14 
( TEXT FORMATTER ) ( AHH 011085 ) 
CE ( FARSE TEXT UNTIL J ) 
ASCII 1 FARGE ; 
: sub ( SUBSECTION ) 
cr S hang-ind ; 

subsub ( SURSURSECTION }) 
cr 10 hang-ind :; 

centerl ( CENTER TEXT UNTIL 3 ) 

IN © FMARGIN © LMARGIN à — 
S + ASCII ] WORD HERE C9 — 2 / tab IN ! C ; 
s TE CN —-- 27 ( RIGHT JUSTIFY IN FIELD N WIDE ) 

IN © SWAF ASCII J WORD HERE C9 — © MAX SKIF IN ! CE 3 
: load ( SCREEN -—-— ) ( LOAD À SCREEN ) 
1S LOAD ; 
14 ——-}> 


Mu 4 
DHDhOLDNOMBUAHr O 


20:40:54 01/10/85 
SCK # 15 
O ( TEXT FORMATTER ) ( RAEH 011085 ) 
1 CODE end ( —- )} ( END OF DOCUMENT ) 
FLA. IF STA, PLA, IF 1 + STA, NEXT JMF, END-CODE IMMEDIATE 


| Forth+assembleur 6502 | de 


mAH 
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SCULPTURES SONORES EN 
FORTH 


En bref : un réseau & cœnt miro- 
ardinateurs, tournant 24 heures sur 24 
dns un lieu public. un ile {er 
phique-couleur à télécommanhk ra. 
un ensemble multi-processeurs, mulli- 
tâches, temps rl. 

Une application Farth ambitieuse pour le 
plaisir de vos oreilles 


Au printemps 1986, si vous empruntez 
les deux cent mètres de tapis roulants qui 
relient la gére Montparnasse à la station 
de métro du même nom, votre oreille 
percevra peut-être autre chose que Île 
brouhaha incessant de la foule ou les 
habituels rythmes africains Si vous ne 
vous souvenez pas de cet article, VOS yeux 
chercheront en vain à localiser une 
source sonore, mais ne rencontreront que 
le regard perplexe d'autres personnes 
qui, comme vous, commençaient à se 
demander si leurs sens ne les trahissaient 
pas. Non, la RATP n'a pas poussé le chic 
jusqu'à inviter Dieu pour distraire ses 
usagers : ce sont deux cent haut-parleurs 
(un tous les deux mètres de chaque coté, 
estucieusement dissimulés) qui vous 
chuchotent une sculpture sonore de Max 
Neuhaus, un artiste américain qui rêve de 
ce projet depuis son premier passage en 
ce lieu en 1973 ; dix ans d'efforts lui ont 
permis de convaincre la RATP et d'autres 
sponsors pour financer ce projet. 


Une sculpture sonore, ça ne peut ni 
s'écrire sur une partition, ni s'enregis- 
trer : cœæ n'est pas une séquence de sons 
dans le temps, mais une topologie sonore, 
que l'artiste adapte spécialement aux 
caractéristiques acoustiques du lieu ; les 
sons se déplacent, interfèrent, se réflé- 
chissent sur les parois, le tout presque au 
seuil de l'audibilité. Les conceptions 
acoustiques de Max Neuhaus sont des plus 
intéressantes pour leur originalité (voir 
les articles parus dans la presse : Inter- 
national Herald Tribune 21/1/1983, Le 
Monde 15-16/5/1983), mais c'est 
l'aspect technique du projet qui nous 
intéresse ici. 


LE MATERIEL 


Pour piioter deux cent SOUrCES SOnores 
indépendantes, il faut du monde : cent 
amplificateurs stéréophoniques pilotés 
chacun par l'extension synthétiseur 
nurmér ique d'un micro-ordinsteur Yamaha 
CXS (standard MSX). Pour les synchro- 
niser, les cent micro-ordinateurs sont 
reliés entr'eux par l'interface MIDI inté- 
grée à l'extension synthé. L'ensemble du 
réseau est supervisé par un COMPAQ 
(compatible IBM-PC) muni d'une inter- 
face MIDI. Pour réduire l'encombrement 
de l'ensemble (et pour décourager les 
éventuels vandales), ne seront conservées 
des micro-ordinateurs que les parties 
essentielles, montées en racks étanches 
pour des raisons de fiabilité et de durée de 
vie. 


Pour laisser à l'artiste toute liberté de se 
déplacer dans l'espace sonore pendant 5 
phase de créstion/mise au point, un poste 
de contrôle sans fil, composé d'un 
émetteur radio et d'un mini récepteur 
télé-couleur, a été préféré au cordon 
ombilical et au clavier d'un terminal 
classique ; coté micro “superviseur”, le 
récepteur radio est relié à une carte PIA, 
et la sortie moniteur couleur est branchée 
sur un petit émetteur VHF. L'émetteur 
radio (une télécommande 8 canaux pour 
modèle réduit) est muni de huit inter- 
rupteurs trois pôles (seize “touches de 
fonction") et de deux "“joysticks” qui 
présentent l'avantage de pouvoir faire des 
règlages “à vitesse variable" et de piloter 
"à la souris” un curseur à l'écran. 


LE LOGICIEL 


C'est le FORTH qui a été choisi comme 
langage de développement pour l'ensemble 
de l'application. Je ne m'étendrai pas ici 
sur ses avantages connus: compacite, 
rapidité, extensibilité, modularité, por - 
tabilité et facilité à déboguer. Ce qui est 
un peu moins connu, c'est sa capacité à 
s'auto-régénérer complètement, grâce à 
un  “méta-générateur" (ou “cross- 
compilateur", pour reprendre le terme 
anglo-saxon). 


META-GENERATION 

Le concept de méta-génération est en 
principe assez simple : tout bon 
“FORTHeur" a déjà utilisé l'assembleur en 
ligne livré avec son FORTH pour 
optimiser en langage machine ses routines 
critiques ; il suffit de l'utiliser pour 
recréer les “primitives” en langage 
machine et d'utiliser le Forth lui-même 
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pour créer les entêtes du dictionnaire et 
les "secondaires" exprimées en Forth 
pour créer un nouveau noyau Forth. Bien 
sûr, si cæ nouveau noyau doit être 
indépendant de celui qui l'a créé, et 
surtout s'il doit “tourner” à un 
emplacement mémoire différent de celui 
où il a été créé, les outils habituels de 
construction des définitions doivent être 
réécris pour tricher un peu avec les 
adresses mémoire et pour permettre de 
rendre ce noyau chargeable et exécutable 
à partir d'une cassette ou d'une disquette, 
ou même d'être résident en ROM. En fait, 
la conception d'un méta-générateur n'est 
pes triviale et demande des connaissances 
dépassant le niveau moyen des bons 
"FORTHeurs”. 


Il est facile maintenant d'imaginer que le 
méta-générateur puisse être utilisé sur 
une machine munie d'un processeur de 
type À, mais avec un assembleur générant 
du code pour un processeur de type B. 
C'est de cette manière que, disposant d'un 
Forth, de son méta-générateur et de plu- 
sieurs assembleurs, on peut facilement 
“porter” Forth sur d'autres types de ma- 
chines : c'est là que le terme “portabilité" 
prend toute sa mesure. 

Et c'est bien entendu cette caractér istique 
qui a fait décider du choix du Forth comme 
langage de développement pour notre 
âpplication. Disposant d'un méta-généra- 
teur de FigForth, le premier travail a 
donc consisté à porter Forth sur un 
micro-ordinateur au standard MSX. 


Petite parenthèse pour les protection- 
nistes que j'entends déjà se demander 
entre les lignes pourquoi n'avoir pas 
choisi un micro bien français. La réponse 
est simple : le CXS est le seul micro (dans 
une gamme de prix permettant d'envisa- 
ger un réseau de cent unités) présentant 
de telles capacités de synthèse sonore: 
mine de rien, la puce du synthé ne 
propose pas moins de 8 groupes de 4 
oscillateurs, chacun paramètrable indé- 
pendamment, tant pour la fréquence que 
pour l'enveloppe (pour les connaisseurs, 
un DX7, qui fonctionne sur le même 
principe de modulation de fréquence, ne 
dispose que d'un groupe de 6 oscillateurs, 
permettant bien sûr des timbres plus 
riches, mais un seul à la fois, alors que le 
CXS5 en permet 8 simultannés) 

Malgré cæla, oubliez vos sombres pensées, 
car l'auteur ne tardera pas à s'occuper du 
cas des autres micros, français compris. 


Voici donc le Forth installé sur disque ——— 


pour le COMPAQ et sur ROM pour les CX5 
(autre avantage des MSX au passage : on 
peut loger 32K octets sur une seule 
cartouche enfichable, ce qui est plus que 
large pour loger même une grosse appli- 
cation Forth en ROM, la RAM nécessaire 
au Forth étant bien sûr celle présente sur 
l'unité centrale). 

Deux interfaces ont été intégrées aux 
ROMS des CXS: la première permet l'accès 
direct aux paramètres du synthétiseur 
(accompagnée d'une petite bibliothèque de 
fonctions de modulation “lente” -rampe, 
triangle, aléatoire.- applicables à tout 
paramètre); la seconde est une interface 
r'ÉSEAU. 


UN RESEAU DE CENT-UN MICROS 
Vous ne vous imaginez pes en train 
programmer cent micros en vous 
promenant d'un clavier à l'autre ! Comme 
une interface MIDI (utilisée pour faire 
communiquer synthés, boîtes à rythmes, 
séquenceurs, et autres instruments de 
musique électroniques) est intégrée à 
l'extension Synthé du CX5, c'est ce moyen 
de communication qui a été utilisé pour 
relier les CX5 au COMPAQ. Une interface 
réseau en anneau (simpls, mais rapide, 
servie par interruption mode 2 du Z80) a 
donc été ajoutée aux noyaux Forth. À 
partir de là, rien ne s'opposait plus à 
utiliser les disques du COMPAQ comme 
mémoire de masse pour tout ce petit 
monde. Je vous laisse imaginer les 
facilités de mise au point qui en ont 
découlé pour les versions suivantes des 
ROMS. 


UN EDITEUR GRAPHIQUE COULEUR 
A TELECOMMANDE RADIO 

La transmission vidéo sans fil n'a pas posé 
d'autre problème que le bon choix d'un 
émetteur VHF. L'interface radio ne s'est 
heurtée qu'à quelques problèmes de 
parasitage et d'instabilité, vite résolus 
par une petite fonction de filtrage (un 
petit problème matériel subsiste encore 
au niveau de la portée de l'antenne en 
émission sous tunnel : merci pour les 
conseils si vous connaissez le problème). 
Pour des facilités de développement (et 
par pitié pour les accus de la radio), une 
interface clavier permet de simuler 
l'inter face radio. 


À partir de là, le plus gros du dvelop- 
pement a consisté (et consiste encore) à 
créer la véritable interface “homme- 
machine”, qui permette d'accéder, en 
temps réel, à environ quatre cent para- 
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mètres per synthétiseur, soit quarante 
mille paramètres ! Et ce à partir de deux 
Joysticks (quatre commandes proportion- 
nelles) et huit interrupteurs (seize 
commandes tout-ou-rien). Lè encore, le 
Forth s'est montré bien adapté pour créer 
une base d'objets graphiques. Chaque 
paramètre est représenté à l'écran par 
une valeur numérique et un bargraph, et 
peut être affecté à un joystick, simple- 
ment en positionnent le curseur graphi- 
que sur la veleur numérique et en 
ectionnent un interrupteur. Le Forth se 
cherge du reste, modifient la valeur et la 
représentation bargraph du paramètre à 
l'écran (et dens un “journal” que l'artiste 
peut enregistrer chaque fois qu'il désire 
conserver une trace permanente d'un 
travail particulièrement réussi, et dont 
le meilleur sera utilisé pour générer les 
ROMs définitives), et bien sûr, à travers 
le réseau, le paramètre correspondant 
dens le(s) micro(s) à l'écoute sur le 
réseau, ce paramètre lui-même, à 
trevers différentes “boîtes à engrenages”, 
mettant en route tout un processus visant 
à changer un où plusieurs paramètres du 
synthétiseur, soit statiquement, soit en 
suivant une fonction de modulation. 


UN ENVIRONNEMENT MULTITACHE 

C'est à ce niveau qu'intervient une exten- 
sion multitäche du Forth : un séquenceur, 
cadencé par un temporisateur du synthé, 
contûlers sur interruption huit tâches 
(soit un total de dix têches par micro en 
comptant le tâche réseau et une tâche de 
fond gérant le clavier et l'écran pour 
contrôle local du micro). Chaque source 
sonore disposera donc de quatre groupes 
d'oscillsteurs gérés par quatres tâches. 


Après mise au point de l'ensemble de 
l'installation, il va de soi que les outils de 
développement (radio, editeur, journal) 
ne seront d'aucune utilité pour son fonc- 
tionnement permanent. Quant au COMPAQ, 
son rôle se limitera à fournir une horloge 
de référence pour synchroniser l'ensem- 
ble et, en cas de problème, à appeler (par 
modem, bien sûr} les agents du service de 
maintenance de la RATP, auxquels il 
fournire un pré-diagnostic de panne afin 
de limiter eutent que possible les temps 
d'intervention sur site. 


FORTH EN PUISSANCE 


C'est grêce à la puissance du concept Forth 
qu'une telle application pourra voir le 
jour avec des moyens matériels aussi 
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modestes: le CXS n'est jamais qu'un micro 


“femiliel", et l'investissement logiciel 
pourra s'estimer à environ un homme-an. 


L'ensemble de l'installation représentera 
un potentiel jamais encore atteint dens ce 
type d'application : deux cent sources 
sonores servies par mille tâches tournant 
sur cent processeurs ! L'ambition de Max 
Neuhaus n'est pas moindre pour le plaisir 
de vos oreilles... 


Voir fiqure page 20 


L'ARTISTE : Max NEUHAUS est né au 
Texas en 1939. Batteur solo de renommée 
internationale, adepte de John Cage, il 
enregistre un disque en 1968. Ses 
réflexions sur les relations artiste- 
auditeurs l'amènent alors à abandonner 
concerts et batterie pour créer des 
“scluptures sonores”, pour la plupart 
dans des lieux de passage grand public 
(dont trois sont permenentes: Times 
Square [NewYork 1977], Museum of 
Contemporary Art [Chicago 1979], Villa 
Celle {Santomato di Pistoia 1983 Italie], 
et bientôt: Montparnasse Bienvenüe 
Mn 1286), Kergehennec [Bretagne 
1986)...). : 

Mex Neuhaus est président de l'ASSO- 
CIATION ECOUTE (12 bis, rue Jules 
Breton, 75013 PARIS, 42.78.03.84.) 


qu'il a créée spécialement pour ses 


projets français. / av know Forth well 
enough an Wish) (o join (het projet, 
pisese cell or wrile 


L'AUTEUR : Christophe LAYARENNE est 
né à Nice en 1956. Ingénieur Arts et 
Métiers, il conçoit des robots industriels 
pendant quatre ans. Aujourd'hui ingénieur 
conseil, il 8 traduit en français un 
ouvrege de Tony Hasemer sur Lisp pour 
micro-ordinsteurs et développe des 
epplications en Forth, dont celle pré- 
sentée dens cet article. 


AUTRES REFERENCES : 


ASSOCIATION JEDI 
8 rue Poirier de Narçay 75014 Paris. 


MICROPROCESSOR ENG LTD 

21 Henley Road Shirley, Southempton 
SO1SAP  ENGLAND  (méta-générateur 
FigForth pour la plupart des processeurs 
sur le marché des micro-ordinateurs). 


POSITIONNENENT DU PROBLEME 


Le programme {écrit en VLISP) présenté ici 
perset de réaliser les tâches suivantes: 


Etant donnée une foraule de calcul des 
propositions 


1) Dire si c'est une tautologie, une antilogie ou 
une forauie contingente en utilisant la méthode 
des polynôämes à coefficients dans 2/22. 


2) Dans le cas où la foraule est contingente, 
donner sa forse norsale conjonctive canonique. 


3) Donner une forme noraale conjonctive réduite; 
inpriaer les clauses correspondantes, 


UN PEU DE VOCABULAIRE 


Dans l’article qui suit (et même dans 
l'introduction ci-dessus), il est fait usage d'un 
certain nombre de termes appartenant à la logique. 
Ce petit lexique est destiné à ceux qui sont peu 
familiers de ce domaine, 


- Sujet : prenier terne d’une proposition Ingigque. 


- Prédicat : second terse d’une proposition 
logique. 


- Tautologie : proposition logique qui reste vraie 
quelque soit la valeur de vérité des propositions 
qui la composent. 


- Antilogie : proposition logique qui reste fausse 
quelque soit la valeur de vérité des propositions 
qui la conposent. 


- Contingente : se dit d'une proposition logique 
qui peut &tre vraie ou fausse suivant Ja valeur de 
vérité des propositions qui la cosposent. 


- forse norsaie conjonctive canonique : 
cosbinaison de structure définie entre les 
variables Jogiques d’une proposition ou d’une 
fonction qui rend vrai la proposition ou la 
fonction. La structure est composée de ternes liés 
par des ou logiques, chacun de ces ternes est 
constitué des n variables ou de leur conplément 
liés par des et Ingiques. 


gohma Homdine 


Exemple : la fonction de la figure 0 est la partie 
sommation d'un additionneur 1 bit dont la table de 
vérité est représentée ci dessous avec sa forme 
norsale conjonctive canonique: 


-} aà.b.c 


-} a,b.c 


-} a.b,c 


-} a.b.c 


On à donc la fncc 


s = a.b.c + a.b.t + a.B,t + a,b.c 
NOTICE D'UTILISATION 


- On peut rentrer une forsule ou une liste de 
formules qui seront placées dans un fichier. 


- Les formules doivent être rentrées sous forme 
infixe entièrement parenthèsée. 


- Pour les connecteurs, il faut utiliser! 


ou pour V 
et pour À 
isp pour --) 
equ pour (--} 
non pour 


- Le prograume est lancé par la fonction pro qui 
appelle Ia fonction fichier si les formules sont 
dans un fichier et qui appelle aussi la fonctics 
projet qui lance réellement le programme en 
répondant aux trois questions du projet, 


= Bonc pour lancer le programme, il faut taper: 
{pro} 
EXPLICATION DU PROBRAMME 


- On donne une foraule de calcul des propositions 
sous forse infixe entièrement paranthèsée, Eli: 
sera manipulée conne une liste implémentée par us 
arbre binaire. 
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Exemple: 


Soit Ja formule: l{ffp equ chimp rhimp * :*2 p) 
pour {tip {--} q}--ù r)--) e)--} p} 

En aénoire cette liste est représentée 
l'arborescence de la fiaure | 


- Le prograsme cacule Ja forme polorsise de !a 
torru'!e ainsi rentrée grâce à !àa foncticr polc: 


néthode utilisée: 


. Soit la formule rentrée sous forme de iiste, Le 
car de Ja liste est Ja partie gaiche de la 
formule, le cadr de la liste est le conecteur, Îe 
cddr est la partie droite, 


. Si Je cddr existe le connecteur est binaire, 
donc on place dans une nouvelle ïiste le 
connecteur (cadr), la partie gauche lcari et Ja 
partie droite (cddr} 


. Sinon le connecteur est unaire (ngn!, donc on 
piace 1e connecteur puis la partie droite dans une 
nouvelle liste, 


Exemple: La torse polonaise d'une foraule: 


polott(ip equ glimp rlinp rliap pl 
= {isptiaptiapiequ p giririp) 


- Nous gardons cette forme polonaise parenthèsée 
parce que nous la manipulerons ainsi pour donner 
son polynôme à coefficients dans 2/22, pour 
sisplifier et pour donner la forme  noruale 
conjonctive canonique et Ja forme réduite de la 
foraule, 


- La forne polonaise est une liste d'atones et de 
sous-listes. 


- À partir de cette forme polonaise, nous 
calculons le polynôme de la formule à coefficients 


dans Z/22 grâce à la fonction poly: 
méthode utilisée: 


. Soit Ja liste de la forme polonaise de Ja 
formule, 


. Dans le polynôme associé à la forsule ïs signe 


"+" est remplacé par un blanc et le signe ‘r° est 
renplacé par une double parenthèse. 
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Esespie: PNR TE 

za EX COYE 
. Cr teste Je car de la ïiste de la forxe 
polonaise de Ja formule, Selon que c'est un 
connecteur où une variable or construit poly par 
récurrence sur les formules: 


9!y !X) 
DIE DA 
y (A 4 8: 

{VAaR) 
= poly (A! poly {B1 lipoly fA!I poiy iBl}i 
ÿ t--) À B) 


[xt 
tt poly (A5! 
tipoly (AH: pol, :B:1 


COS CC 


{t poly; (AP lipol: 413 poly 185: 
poly it--} 4 Bi = ‘poly hi pois (8, 


cu X est une variab'e Îe iype atone et A et B des 
sous-listes représertant des sous-forauies de 
forse polonaise. 


Exeusle: 


Le] 


: ‘et (on ai ‘où b ci! 

poly (nor at) poly ‘ou b cl! 

TE poly ai pol b pol; © f'poir b' pole 2’ 
{Cf a) bc tib' ci! 


COR DE) 


- Pour siaplitier !e polinôse, c1 utilise 
fonction simplification. Plus exactement 
fonction simplification prend en paramètre 
forne oslonaîse parenthèsée de la formule, appelie 
poly qui calcuis le polyriôre 'ecmge vous !'s0ns 
4 précédesment!. 


schéaa de !a fonction simplification: 


{simsiification #1 (=Y (simpladd (simpiif fi) 
fofagiif 4 72 


ferievelicte (recherchemult sing, pol; #1) 
Explication de chacune des fonctions appelées: 


- La fonctior sinpl: Elle repère chaque sous-iiste 
fauitiplication du pclynôme et les développe 
utisisent la distributivité. Eile fait appel à 
forction digt gui ‘ait appe: à Ja ftonctio 
jeveigppe qai fait appei à !3 fonction nuit. 


(sien! ({ VOIES Et voi 


retzurne !i{ YO Yi EX I Yi! 


ce qui est équivalent en logique à : 
D txt iX x 1 x Y} + (X x 1 x X]) 


- La fonction recherchemult: Elle recherche Jes 
sultiplications dans la liste rendue par sinpl, 
aultiplications qui sont des sous-listes de la 
liste. Une fois que l’on a repèré une sous-liste, 
on appelle simpiault, fonction qui simplifie les 
aultiplications en utilisant les propriètés de la 
aultiplication dans 2/22, c'est à dire: 


XXI=X , XxX=xX et Xx0=0 
Exemple: 


{rechercheauit (1 X (X 1 Y) {X 1 X })) 
retourne {1 X (X Y) (X)) 


- La fonction enleveliste: Elle suppriae les 
sous-listes formées d'un atome (variable) rendues 
après la sisplification des aultiplications, 


Exenple: 


fenleveliste (1 X (X Y) {X))) 
retourne {1 X (X Y) X) 


- La fonction  sinpladd’ Elle fait la 
simplification finale c’est à dire celle de 
l'addition. Elle fait appel à la fonction sinpad 
qui fait appel à la fonction compare qui fait 
appel à la fonction comp. La siaplification 5e 
fait en utilisant les propriètés de l'addition 
dans 2/22 c'est à dire! X +X = 0 (0 élément 
neutre pour +), Les atones sont conparés ensesble 
et les sous-listes de même longueur sont comparées 
ensemble, 


Exenple: 


{siapladd (1 X (X Y) Z X {Y X) Y)) 
retourne [Y Z 1) 


En résumé la fonction simplification appliquée à 
une foraule polonaise parenthèsée retourne le 
polynône associé à cette foraule à coefficients 
dans 2/22 entièrement simplifié, Ainsi: 


(1) s’il est égal à {, Ja formule est une 
tautolugie. 

{2} s'il est égal à O {nil), la formule est une 
antilogie, 

(3) s'il est égal à autre chose, la formule est 
contingente. 


Ces tests sont faits dans la fonction projet (en 
début de programme) et dans le cas (3) on appelle 
les fonctions face (pour calculer la forne normale 
conjonctive canonique), affiche {pour Ja forme 
réduite) et clause (pour inpriner les clauses), 


Méthode utilisée dans fncc: 


+ C'est par la table de vérité d’une formule que 
l'on construit 5a forme normale conjonctive 
canonique. 


.Tout d’abord on recherche les variables de Ja 
toraule polonaise grâce aux fonctions aplatie et 
rechvar appelées dans la fonction vara. 

_änlatie prend en argument une liste (formule 
polonaise) avec des sous-listes et retourne la 
liste des atomes de la liste, 
rechvar retourne les variables contenues dans la 
liste donnée par aplatie dans l'ordre. 


. Puis grâce à la fonction table, on construit a 
liste des différentes combinaisons possibles de 
valeurs de vérité des variables. 

table: Les deux valeurs possibles pour une 
variable sont ! et 0 (pour vrai et faux) donc au 
départ table prend pour argument ja liste (1 0) et 
8 qui est le nombre de variables de la formule, Ce 
noabre est donné par: ‘length fvara 1)} (1 étant 
la formule po'cnaise proposée). 

ñ 
table retournera les 2 combinaisons possibles, 


Au niveau de la prograamation l’idée de table est 
la suivante: à partir de Ja liste (1 0) on forme 
des sous-listes en rajoutant { et © à chaque 
élément, Guand le nonbre d'éléments des 
sous-tistes atteint n on arrête. 


Exesple: {table {1 0} 3) 


3 représente le nombre de variables, 

3 
table doit renvoyer 2 = 8 combinaisons, 
La façon dont elle procède est représentée figure 
2, lorsque la longueur de chaque sous-liste est 3 
cn arrête et on obtient 8 combinaisons 


. Ensuite, grâce à la fonction distribution, on 
attribue les valeurs de vérité de chaque 
combinaison (sous-liste) de table aux variables de 
la formule. 
distribution est appelée avec trois paramètres 

- 1 : la formule 

- Var : Ja liste des variables de 1 fvara 1) 

{pour pouvoir les reconnaitre dans la 
foraule) 
- dist : une combinaison de valeurs de vérité, 


Exesple: 


distribution {X imp Y) (X YH {1 01) 
retourne (1 imp 0) 


tabverite leste la valeur (0 ou 1) que prend Ja 
foraule pour les différentes cosbinaisons et grâce 
à la fonction fornus, on obtient la liste des 
combinaisons de table qui rendent a fornule 


fausse (=0). 


11 ne reste plus qu'à affecter Îles variables aux 
éléments (0 ou 1) des combinaisons et rajouter les 
connecteurs grâce aux fonctions forme et dijon et 
l'on obtiendra la forme norsale conjonctive 
canonique, (pour 0 on rend p et pour ! on rend np 
{= non p)}. 
forme: Cette fonction accepte 2 arguments! 

- fi : la liste des variables de la formule. 

- 12: Ja liste des cosbinaisons (évaluations) 

qui rendent fausse la formule, 

Elle retourne la forme normale conjonctive 
canonique en utilisant Je fonction dijon 


ETUDE DES FONCTIONS 


Cette étude explique les entrées et les sorties 
des fonctions. 
fe est utilisé pour entrée et s pour sortie) 


Programme principal 


- Les fonctions pra et projet font tourner le 
progranne, fichier est utilisée au cas où les 
données seraient dans un fichier, 
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(n (0) pour n=J 


. 
Cu 
ol t 


ARE 


figure ?. 


pour chacune des sous-listes on rajoute 0 d'une part 
et | d'autre part pour former deux nouvelles lstes. 
On itere ce procede n fais. 

(a est le nambre de variable) 


e : sans paramètre istes ou 1 liste et un atose ou 2 atoses 
5 ! (lance tous le progrause) A B) 
iste {(X A) (X B}) 


* une liste de plusieurs foraules 
: pour chaque forsule, teste si tautologie... 1 liste (A À B 1 C) 


d'iste (A B C) 
pcpiet : 


. ; gispau : 

e : une liste {= formule infixe) 

5‘: Son polynônse, sa forme normale conjonctive 1 atone et 1 liste A (A B 1 C) 

canonique, sa forme normale conjonctive réduite, t liste (AB 1 C) (fait la siaplification 
les clauses. a aultiplication 


FORME POLONAISE recherchent : 


É e : { liste (le polynône de ja foraule) 
5 ! {1 liste (repère les sous-listes et les 
une liste {= foraule infixe) sisplifie) 
sa forne polonaise (parenthèsée) : 
sispladé : 


e : { liste (A Bi C (DE) CA (DE)) 
5 : cette liste est simplifiée grâce aux 
propriètés de l'addition dans Z/22 (A (A B)) 


TAUTOLOGIE 


liste (= foraule polonaise parenthèsée) 
polynôme dans Z/22 siapad : 


e : 2 listes ou ! atose et 1 liste (le polynôme) 
5 : Ja 2eme liste privée ou non de l'élément de 
liste (= polynône dans 2/27 d'une formule) ler argument 
s : polynôse simplifié 
Eosp : 


e : 2 listes 
e : 2 listes (la Îere est en facteur avec la 2nd) s ! vrai ou taux [t ou nil) selon que les deux 
s : distribution de la {ere liste par rapport à la listes sont égales où non 


, e : 2 listes ou 2 atomes où 1 liste et ! atome 
* 2 listes ou ! atome et 1! liste (X V) IA B} s ! teste si les deux arguments sont égaux, 
: une liste (IX Y A) (X Y B)) retourne t ou nil 
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enlevelist : 


: t liste (le polyrôme sinplifié) 
: cette liste en remplaçant les sous-listes d’un 
tone par l'atome lui-sêne 


€ 
5 
a 


siaglit : 


e ‘ { liste (la forme polonaise parenthèsée) 
5 : Je polynôme de la foraule dont 
auitiplications sont simplifiées 


siaolitication : 


e : 1 liste (la forme polonaise parenthèsée) 
5 : le polynône entièrement simplifié 


FORME NORMALE CONJONCTIVE CANONIQUE 
aulatie : 


e : L liste {= formule) 
5? la liste d'atoses qui cosposent la liste 
entrée {sans sous-liste) 


# L'liste (= 1 toraule sans sous-foraules) 
: la liste des variables (dans l’ordre) de Ja 
foraule 


table : 


e ! la liste {1 0) et { nombre n (= nosbre de 
variables) n 

s : liste de 2 sous listes (= combinaison des 
valuations des variables) 


distribution : 


e : une formule polonaise, 1 liste de variable et 
{ combinaison de valuation 

5 : la toraule avec à la place des variable Jeur 
valuation 


tabverite : 


e ! une formule polonaise avec les valeurs de 
vérité à la place des variables 

5 : 0 ou 1 suivant que la foraule est fausse où 
vraie 


yari : 


une formule 
la liste de ses variables avec leur ordre 
‘apparition dans la foraule 


toraua : 
n 


e : ! foraule, ses n variables (liste) et les 2 
combinaisons 

5? Ja liste des conmninaisons qui rendent la 
fornule fausse 


facc : 


: une formule polonaise (parenthèsée) 
+ sa forse normale conjonctive canonique 


forse : 


e : la Jiste des variables de la foraule et 1a 
liste des cosbinaisons qui rendent la formule 
fausse 

5 : la forme normale conjonctive canonique avec 
variables et connecteurs 


dijon : 


e : la liste des variables et une sous-liste de la 
liste des conbinaisons de valuation 
5 : 1 liste : disjonction des variables 


FORME REDUITE 
reduc : 


e : ! liste qui est la fncc d'une formule sans les 
connecteurs 
s : la forme reduite de Ja fncc 


regucl : 


e : deux listes (au ler appel = 2 fois la #ncc) 
5 : la liste des réductions de la fncc (torse: 
réduite de la fncc}) 


FEQUC£ : 


e : Î sous-liste de la fnec et la fncc lau ler 
appel} 

5 : la liste des réductions de l'élément avec tous 
les autres 


controle : 


e : 2 listes {1 liste de réduction et ! liste des 
éléments de la fncc qui ont donné une réduction} 
5 : Ja liste des réductions 


coupact : 


5 { liste (la fnec} 
‘: Ja liste sans éléments en double 


: 2 éléments (listes) à réduire 
s : da liste vide si les éléments sont égaux, leur 
réduction sinon 


comparaison : 


e ‘ 2 éléments à réduire 

ss | liste avec "oui" "non" suivart que des 
variables sont présentent ou non dans Îles deux 
listes 


verif : 
e’ Ja liste (‘oui ‘non') et n le nombre qui 


cospte les "non" 
s : n le nosbre de ‘non° 


regu) reduc : 


e : deux éléments à réduire 
5 : la réduction 
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résuttat : 


e : 1 liste télément de la fncc) et la liste ‘oui* 
“non" 

5 ! {liste = réduction sans Ja variable qui à 
donné "non" 


enlevi, enjev2, affiche, aff qupprine et su 
arrangen les forau es pour Pren es pr senter 
fonctions {sans les connecteurs) et aux 
utilisateurs (en supprimant les nil,en remettant 
les connecteurs pour la conpréhensions des 
foraules) 


CLAUSES 


liste de réduction : {{p np} (p gl} 
liste de clauses : {{q =) p} {=} p qi) 


permettent la formation de ces clauses 


- Après l'obtention de Ja forme normale 
conjonctive de la formule, le procédé de réduction 
est le suivant: 


- On considère la fncc de la forsule sans les 
connecteurs Aet V que l’on envoie à la fonction 
reduc, reduc appelle Ja fonction reduci avec au 
presier appel les deux arguments de reduci qui 
sont deux fois la fncc. 


ES 


ide pro () 
2t(tyonsc 49) 
sCterpri? 


- chaque éifsent Sera corparé à tous jes autres et 
l’on recueillera toutes les réductions qu'il aura 
pu donner avec d'autres élésents différents dans 
une liste, 


- On utilise deux paramètres dans reduci pour que 
tous les éléments de 13 fncc puissent être conparé 
avec tous les autres. 


- reduci appelle ensuite reduc2 qui appelle res 
etc... {voir le listing). La comparaison de deux 
éléments est faite selon La tautolngie: 

{ip Vgi *ipV gi) t-->p 


- On prend deux éléments (2 sous-listes), 5i un 
élément est présent dans les deux listes, on met 
oui" sinon on met non”, S'il y a un “non° on 
seut appliquer la tautologie sinon il n’y a pas de 
réduction possible, Ces opérations sont faites 
grâce aux fonctions comparaison, verif, resulreduc 
et resultat. 


- Les fonctions enlevi, enlev?, affiche, aff, 
supprime, supp servent à enlever ou à remettre des 
connecteurs pour présenter les formules de façon 
correcte par rapport aux autres fonctions. 


- Enfin, à partir de la forse réduite, on fabrinue 
les clauses correspondant aux listes. 


stprint "VOULEZ VOUS RENTRER LES DONNEES PAR FICHIER ‘oïui/‘nten 


Sstdif leg treadi ‘ni 
s (progn 
7ttterpri) 
B:tprint 
g:(Cterpri! 
10:Clet CCff (read)1) 
1iréprint ff) 
12:Cprojet ff) (terpri) 


13:Cprint "VOULEZ-VOUS CONTINUER 


#4 


sCif eg (read) ‘ni (print 
scpragn 

sCinput ‘#21 

stlet Ctff (readi31 
téfichier ff) 


itde fichier (1 


o/n 


DONNEZ VOTRE EXPRESSION EN INFIXEE") 


2"3 (terpri) 
FIN") (proï)ài 


soif null Litprint "FIM DU FICHIER") 


2: (progn 

stterprii 

séprint'VOTRE FORMULE" 
téprint (car 1) 
sCterpri) 

seprojet Cear 132 


CPE AE CON HD HE GENE HENORHHEORNEENNNH EH DENKONE NO 9 4 4 7) 


séfichier todr 113320 
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33:(de projet (1) 
S4:(terpri) 
35:Clet (Cff (polo 133) 


36: (let C{tauto (simplification ff))) 

37: (eond (equal tautn ‘(1)) 

38: (print " C'EST UNE TAUTOLOGIE"D) 

39: ((equal tauto nil) 

40: Cprint “ C'EST UNE ANTILOGIE")5 

41: Et (print " - FORMULE CONTINGENTE, VOICI SON POLYNOME"“) 
#2: (terpri) (print tauto)} 

43: (terpri) (let (CC foont ffnec f1f3)) 

hhs (print " & FORME NORMALE CONJONCTIVE CANONIQUE") 
45: (terpri) 

46: (print foonj) (terpri) 

Cr (let (reduction (affiche (enlevi (reduc (supprime fconj)))))) 
48: (print " FORME NORMALE REDUITE“) 

49: Cterpri) 

50: (print reduction) (terpri) 

51: (print " . VOICI LES CLAUSES")(terpri) 

S2: (print (clause (enlievi (reduce (supprime foonj)22222)3))33) 
53: ; 

544 

55: 

Lè: 

37: 


58:Cde polo (x) 
S9z:tcond © null x) nil) 


60: Ç Catom x) x) 

61: C{gau x) CCop x) Cpololgau x) (Cpolo(droi x)) 1) 
62: (t CCop x) Cpolaldroi x))1) : 

63:))) 

CE 

65:tde op(x) 

66: QC if (cddr x)(cadr x){car x)) 

67:) 

6B.: 

69:tde gau (x) 

7ü: (if Coddr x) Caar x) nil) 

71:) Cde droi (x) Cif Coddr x)(caddr x)(cadr 33) 
72: 


73:0de poly (1) 
TésCcond CCnuil 1) C)) ! 
75: CClistp 1) Cselectq (car 1) 


76: (’ou Cappend Cappend (poly (cadr 133 (poly (caddr 133) 

773 (cons Cappend C(poly (cadr 1))33 (poly (caddr 1333 nil})) 
78: C’et (cons (append C(poly Ccadr 1233 (poly Ccaddr 1339 nil)) 

79: (‘imp (Cappend (append 1 (poly (cadre 1))) 

80: (oans (Cappend C(poly (cadr 1233 (poly Ceaddr 133) nil))) 
81: (’equ (append Cappend 1 (poly (cadr 1))) 

82: poly (caddr 13))) 

83: C'non (Cappend 1 (poly (Ccadr 13)3) 

84: t C19))) 

85: t C11)))) 

86: 


8Y:tde simpl C1) 
88: if (null 1) () 
89: (let CCj (car 1))) 


90: Cappend (if (atom j) Cj] 

91: Cdist (simplcar J)) Csimpl(cdr j)3))) 

92: Csimpltcdr 133333) 

93: 

9é4itde dist (114 12) 

95: {if 6Enull 119 : 

96: Cappend (developpe (car 11) 129 (dist (Cedr 11) 12333) 
973: 


98:(de developpe (x 1) 

99: tif Cnull 1} © 

100: {cons (mult x {car 1)) (developpe x (cdr 13333) 
101: 

102:de mult Cx1 x2) 

103: Cif Catom x1) (if (atom x2) Ext x22 


104: cons x1 x2)) 

105: Catom x2) (cons x2 x1) 

106: Cappend x1 x2))) 

107: 

108: 

109:Cde simplmult C1) 

1140: tif (null Cedr 1)) 1 

111: (if Cequal. (car 1) ‘19 Csimplmult (edr 13) 
112: {simpmu (car 1) (simplmult (Cédr 1232933) 
113: 
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simpmu €x 12 
1145: Coond Cénul} 1 EKT 


1ié: Ctequal x fear JYY Caimpmu x (ocdr 1119 
AA C£equal fear 1) 41 (simpmu x todr 111 
118: ct Cappend Cicar 111 Csimpmu « Cedr 13313333 


recherchemult (1]1) 
if Cnult nr © 
Cappend dif flistp (oar 11) C'aimpimult (car 13979 C'ear J\1) 
Crecherchuemult Cedr 1111999 


simpladd (1) 
126: (if Cnull Ccdr 133 1] 
127: (let C(j Coar 1319 Caimpad j Ceimpladd fodr 133939) 


429: 


130:tde simpad (x 1) 

131: cond Cénull 1) Ex 

132: Ctonmpare x fcar 199 fedr EL) 

133: ct Cappend Etcar 117 tsimpad »“ (cdr LENPTEN 
J34: 

136sde comp (Cx1i x2) 

136: (cand CCnutl x19 €) 

1273 Ctmember Coar 11 x (comp fedi 413 «230 
138: Ct (3710 

139: 

140: 


fétide compare Cx1 x2) 
14% Gif Catam x1r tcend félistp éd nil? 


143: (Cequal x1 2) t) 

ECTE CE HEUrS 

1493 fond CCatom #2) nil) 

146: Cfequal (length x12 (lungth x213 tcomp x x2: 
147: ct nil) 

148: 

149: _ 

150Q:0de enleveliste (1) 

191: Gif null 15 (0) 

152: Cappend (if fand (listp frar 19) 

483: (equal (length tcar 1939 423% (ear 11 Eicar 11177 
ELZ Cenleveliste Cedr 131320 

158: 

166: 

157: 

A58:tde simplif C1) 

159: tenteveliste (recherchemult (simpl (poly 13333) 


180: 

jé: 
162:(de simplification (1) 
{simpladd (simplif 111: 


aplatie (1) 


167: if Cnull 19 (3 . 
168: Get (Cj Coar 133)) 
169: fappend Cif Catom j) Cj1 ‘taplatie j9) 


fsplatie fedr 133233) 


rechvar (14 12) 
if €null 147 12 
(let (€Cj (car 1414))) : 
tit (or equal j ‘our (equal j ‘et (equal j imp! 
equal j ‘rond equal j ‘equ) (member ÿ 129) 
(rechvar tedr 11) 121 
Crechvar €Codr 1142 Cappend 17 € 5733399) 


itde n) 


table (1 


183: QUE ONE ASS EN 

daastif Cequal n 1) 1 

185: Ctet (fÿ foar 1390 

186: Cif fequal flongth jo n) 1 Canpend(table(cons(appendtif (atom j? Lange LI 
187: Ciappend@if fatom j9 Cj3 j' ER! 
ep: ni 


Ctablu ‘oder 1) nm)r13195 
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192:(de distribution (1 var dist) 
493: Cif Cnulil 1) €) 
194: (let Cfj (car 1))) 
195: Cif Catom j) Ccond((or Cequal j ‘oui (equal j ‘et)(equal j ’imp) 
198: (equal j ‘equ) (equal j ‘’non)) 
197: Cappend €Cj] (distribution (coder 1) var dist))) 
198: {(equal j (car var) (append 
199: Cif (listp dist)C(car dist)]C dist]) 
200: (distribution (cdr 1) var dist))) 
201: Ct (distribution 1 Ccdr var) (cdr dist)))) : 
202: Cappend C(distribution j var dist)] (distribution (oder 1) var dist))}))2) 
203: 
204: 
205:(de tabverite (1) 
206: (cond CCnull 1) ©)» 
207: CClistp 1) (selectq (car 1) 
208: (’ou (if (and (equal (tabverite (cadr 13) ’0) 
209: Cequal (tabverite (caddr 1)) 01) ‘0 ‘1)) 
210: C'imp (if Cand (equal (tabverite (cadr 1) ‘1) 
211: (equal (tabverite (caddr 1)) ‘0)3) ‘0 ’1)) 
24%: ('et (if (and (equal (tabverite tcadr 1)) ’41) 
243: (equal (tabverite (caddr 133 ‘1433 ‘14 ’0)) 
214: ‘ ('non (if (equal (tabverite (cadr 139 ‘1 ‘O ‘14)° 
215: C'equ (if (equal (tabverite Ccadr 13) ’1) 
216: (if (equal (tabverite (caddr 1)) ‘142 ’1 ‘0) 
217: (if Cequal (tabverite (caddr 13) ‘0) ‘1 ‘“0))) 
218: ct 1) 
219: ct 133) 
220: 
221: 
222:(de vara (1) 
. 223t(rechvar (Caplatie 1) nil)}) 
224: 
226:0de fornum (11 var dist) 
226:(Cif null distr €: 
227:Cif (equal Ctabverite (distribution 11 var (car dist)})) ‘0) 
228:(append LCicar dist}Jtfornum 11 var Cedr distr3) 
229s:tfornum 11 var fedr disti)1)) 
230: . ee: | 
231:(de fnoc (1) 
232:(forme Cvara 19 (fornum 1 fvara 1) (table ‘(1 0) length  (vara 133333) 
233: 
234:(de forme (11 12) 
235:(if (null 123) OC) 
236:(ifn (null Ccdr 12)) 
237:(append C(dijon 11 (car 12) ’/\ J(forme 11 Cedr 1233) 
238:(append Ctdijon 11 (car 123) J(forme 11 Cedr 12)3)))3) 
239: ' 
240:Cde dijon (x1 x2) 
24t:Cif (null x2) (C) 
242: (if Catom x2) 
243: (if Cequal x2 ’0) (car x1) Cimplode C ‘non (ear x1)1)) 
244: 0ifn (null Cedr x2)) 
245:Cif Cequal (car x2) ’0) 
24b:lappend Clear x1) ’\/ Jfdijon Code x1) Cedr x2))5 
247: Cappend E Cimplode LC'’non (car x1)19 ’\/ J(dijon Cedr x1) Ccdr x2)3)) 
248:Cif Cequal (car x2) ‘0) 
249: Cappend Cloar x137 (dijon Codr x1) Cedr x23)) 
250:Cappend Climplode C ‘non'(Coar x131)](dijon (edr 413 (Cedr «23)))3))) 
251: 
252: 
263: 
254:de reduc (1) 
256: (compact 1) 
256: (let f(11 (reduci 1 133) 
267: Cifn Cequal 11 13 (Creduc 11 ) tocompact 11399) 
258: 
259:(de reduci (14 12) 
260: Gif Enull 149 © Cappend(redueZ (car 1149 12) (reduci fedr 11) 12333) 
| 


reduc2 Cx 14 12 12) 
Cf Cnull 149 (let CC cont (controle 12 133) €if (null cont) Cx1 cont}) 
(let Cr (res x (war 1139) (suite Ccdr 11))) 
(cond (Cor (member r 12) (equal r nil) Creduc? »x suite 12 121) 
(equal re xr (if (member x 13) (reduc? x suite 12 13) 
« (reduc2 x suite (Cappend 12 Cr]) 13)35) 
©t (reduc2 x suite (append 12 Cr) (agpend 13 Cx1)>33)3)) 
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270: 
271!:tde controle (141 12) 
272: Cif fnull 14) OO 
273: (let CCj (car 1139) : 
274: Cappend (if (member j 121 (à Cj1) ‘controle (cdr 11) 33) 
275: 
276:(de compact (1) 
277% Gif (null 32 Cù 
27B: Clet CCj Coar 1) Ch Code 133) 
279: tappend Cif {member j h1 ©} Cj1) (compact h3:39) 
280: 
281:(de res (11 12) ; 
2B?:tcond fland (atom 119 Clistp 12 (member 11 121) 11) 
283: Céand Catom 12 Clistp 119 Cmember 1X 14) 129 
284: {Cand Catom 1149 Catom 121 Cequal 11 1239 (33 
285: (£and tlistp 112 Clistp 129 tequal 11 Hits ta) 
2Bbr:tCand Clistp 113 Clistp 12) fequal (length 11) Clength 12)ï){resuttredue 11 FEDDCE €: 
287: 
288: 
289:(de comparaison (11 12) 
RAR if tnull 143 (2 
291: fappend Cif (equal C&ar 11) fcar 129) C'oui] £'nonl) 
29%: togmparaison (eder 11) (cdr 12593)4 
292: 
?O4rtde verif C1 n) 
295% Cif null 1) n 
SEX tif (equal foar 1) ‘non) fierif (odr 1) (+4 n 13} Cverif fedr 1) niv) 
297: 
298: 
2e8:tde resultreduc (11 12) 
390: riet (lc (comparaison 11 1233: \ 
301: (if fequal (verif © 0) ‘13 (resultat © 11) 11))) 
30: 
303:(de resultat (11 12) 
304: (if null 14) 0 
305: Cappend (if Cequal (car 11) ’oui) Car 1219 C()1) 
306: (resultat Code 11 Codr 123223) 
307: 
308:(de enlevi (1) 
309: Gif Cnull 1) 0) 
310: {let ((j (car 1))) Cappend Cfanlev? j)1 (enlevi (cdr 133333) 
311: : 
312:(de enlev2 (1) 
313: if Cnull 197 (0) 
314: let CCj (car 1))) 
315: Cappend (if fequal j nil) €) CjJ) Cenlev2 (cdr 1)))3)) 
316: 
317: 

affiche (1) 

Gif {null 1) 6) 

Cappend(append Caff Cœar 1237 Cifn Cult Cedr 197 C/N\J 0) 
{affiche fcdr 1)/))) 


aff (1) 
(if Cnull 1) (C) 
Clet CCj foar 129 Ch Codr 129) 
(append tappend Ej3 <ifn Cnul} h3 L'\/3 €) (aff h19)): 


supprime (1) 
Gif Cnull 1) Ci 
fappend if Cequal (car 13 7/\) (3 Ctsuppfoar 1)97 
(supprime fcder 112)9939 


335:€de supp (1) 

336: tif énulil 13 €) ° 

337: Cappend Cif (equal (car 1) *\/1 (1 Car 199) 
338: (supp (cdr 13233) 

339: 

340:de clause (1) 

341: tif (null 1) 0) 

342: tappendE(cli Caar 1321 (ciause (Cedr 12233) 
343: 

Zag: de cl1 (14 12 13) 

346: (if {null 1149 (clZ 12 14) 

T4: flet (exp lexplodelcar 11)3)) 

347: (if (equal tear exp) ‘n > tell Cedr 11) tappend 12 (cdr 
Z48: el fedr 149 12 Cappend 13 exp)))33) 
349: 

3S0:tde c12 {11 12) 

3541: Cappend Cappend 14 C'2#%7 3 121) 
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TURBO-PASCAL Fonctions graphiques pour AMSTRAD/SCHNEIDER 


Le TURBO-PASCAL CPM80 pour L'AMSTRAD (ou 
SCHNEIDER) ne comporte pas de routines spécifi- 
ques. En voici quelques-unes. 


La place disponible pour le programme source 


étant de huit K environ, il est impossible de 
tout faire tenir en mémoire, c'est pourquoi 
j'ai opté pour une séparation en blocs spécia- 


lisés et appelés TOOLS. 


11 y a cinq TOOLs: 


- TOOLS1 il devra être chargé à chaque uti- 
lisation. 

- TOOLS2 ne concerne que les ordres gra- 
phiques. 

- TOOLS3 ne concerne que les ordres textes. 

- TOOLS4 est une routine de tracé de cer- 
cles. TOOLS2 devra être chargé a- 
vant chaque utilisation. 

- TOOLS5 reconstruction des fonctions SIN 


et COS. TOOLS2 devra étre chargé. 
J'ai utilisé 1a méthode de BYTE 
(80) pour le FORTH. 


Queques remarques sur certaines procédures: 
TOOLS]1 


CUR_ON et CUR_ OFF servent à supprimer le SyS- 
tème lors d'une boucle repeat. Le curseur réap- 
paraît à la fin. 


TOOLS2 


? 
> 
3 
à 


CR 


œ w ÿ 
< Œ _- Z 
LL] 3 . CA LI 
4 <- a 3 N A 
* ï E tu Z E- # ui 
* ra < Œ x . ul 
* WU HO œ mZ Le re 
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DE 3 N 24 
Ex mA tu LOS [A mu Z fa Lu 
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" “= EN t oAm £ 0 0 “na ÿ 0 0 mA 
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J CE re] = # sn. n… [A ss. 
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te E JOUA +r JOUR M HI) 08 JJjJ)ii10n 
LOL LA CARS v CRC ” CERCLE _ MU US 
LC ; 
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0 * £ e 
*ox e # 
LE - A £ 
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- [a # 
Sa [s s e s € LS .. s 
y e m LU m = an N mn 
0 on a e & œ u ® 
6 y # lu CS WU ns ty 
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* e € - e. 
o % ( E . 
«k€ 0 ca £ a 
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* Se - © — Se — e — 
ra £L L È L 
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‘kO% 6— — 6 ds ET 
k+rx%k Um v um v um v um 
*k % 0e £ 0e £ 0% £ O6 
*k 2% LS e & 9 e. L1 + œ: 
kkk © a a Li 
vu 


end} 


TEST donne le numéro du crayon. 
Pour créer une fenêtre graphique, 
xer l'origine avec ‘ORIGIN’, 

CLG efface l'écran graphique avec 
spécifiée par GPAPER. 


FOOLS3 


il 
simple non!. 


faut fi- 


la couleur 


Pour utiliser les fenètres texte, 
re est la suivante: 


"WINDOW(1,10,40,10,20)" 


la procédu- 


"PEN(1)' ‘PAPER(O)" 


défini une fenêtre numéro 1 avec un crayon nu- 
méro 1 et un papier numéro O0. L'écriture se fe- 
ra dorénavant dans la fenétre 


sélectionnée ou 
dernièrement définie. L'activation d'une fené- 
tre est réalisée par ‘SETWINDOW(n)'. L'efface- 
ment de son contenu est réalisée par  ‘'CLRSCR' 


de TURBO. 


Les autres TOOLS se passent de commentaire, 
car ils sont inclus. N'oubliez pas, pour les u- 
tiliser dans vos propres programmes, de les in- 
clure également (pour les débutants en TURBO 
sur AMSTRAD, inclure signifie prendre en compte 
le contenu du fichier spécifié; ceci permet 
de compiler un programme source ne pouvant nor- 
malement pas tenir en mémoire vive, car celle- 
ci est limitée pour l'AMSTRAD à 8k utiles sous 
TURBO). 


J'espère que vous trouverez ces procédures u- 
tiles, même si le jeu de fonctions disponibles 
reste incomplet, car de mon coté il y a encore 
fort à faire, 


La) 4 ne La Le) La] LR]  pn 
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nm] . Ü . . 
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VOS QUESTIONS _... NOS REPONSES 


Au fil des mois, vous avez pu éprouver 
quelque difficulté à comprendre ou à adapter 
tel ou tel programme à votre système. Si dans 
la majorité des cas, un simple appel téléphoni- 
que a pu vous aider, il n'en est pas toujours 
ainsi quand un point de détail s'avère un peu 
délicat. C'est pourquoi, les problèmes rencon- 
trés qui nous seront soumis seront communiqués 
aux auteurs concernés et nous nous efforcerons 
en retour de publier rapidement la réponse. 


NUMERO 16: UN DECOMPILATEUR RECURSIF: de nom- 
breuses lettres désepérées nous demandent la 


définition de CLIT. La réponse est simple: si 
vous n'en disposez pas, omettez la partie de 
définition concernant ce mot. En effet, CLIT 


est similaire à LIT mais appliqué aux valeurs 
litérales huit bits. Ce mot est compilé par 
LITERAL. On le retrouve généralement sur le 
FORTH APPLE et ORIC. Par contre, il est inexis- 
tant sur THOMSON ou HECTOR (et les autres...). 


NUMERO 20: VIRGULE FLOTTANTE EN 83-STANDARD: 


une demande de traducteurs bénévoles figurait 
en fin d'article. Celle-ci a été satisfaite et 
concerne l'article ALGORITHME DE  CORDIC qui 
précède. Merci quand même à ceux qui ont propo- 
sé leur aide. Nous ne les oublions pas, nous a- 
vons d'autres articles à faire traduire. 
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